home *** CD-ROM | disk | FTP | other *** search
/ Softdisk for Windows 42 / Softdisk for Windows 42.iso / QUARRY / QUARRY.EXE / QUARRY.dxr / 00196_REDADD.ls < prev    next >
Encoding:
Text File  |  1998-01-01  |  828 b   |  39 lines
  1. on REDADD
  2.   global GRIDY, GRIDV, GRIDH, KK, KKK, KN, NU, SOND, DT
  3.   set NU to 0
  4.   set DT to 2
  5.   set KK to 0
  6.   set DT to 35
  7.   repeat while KK = 0
  8.     set NU to NU + 1
  9.     set KKK to random(10)
  10.     set KN to KKK * 14
  11.     if NU > 150 then
  12.       set KN to random(12) + 2
  13.     end if
  14.     if getAt(GRIDV, KN) = 0 then
  15.       set KK to KN
  16.     end if
  17.   end repeat
  18.   if SOND = 0 then
  19.     puppetSound("WISH")
  20.   end if
  21.   set the locH of sprite 29 to getAt(GRIDH, KN)
  22.   set the locV of sprite 29 to getAt(GRIDY, KN)
  23.   setAt(GRIDV, KN, 3)
  24.   repeat with N = 1 to 3
  25.     if N = 1 then
  26.       set the castNum of sprite 29 to 200
  27.     end if
  28.     if N = 2 then
  29.       set the castNum of sprite 29 to 199
  30.     end if
  31.     if N = 3 then
  32.       set the castNum of sprite 29 to 4
  33.     end if
  34.     updateStage()
  35.     COUNTTIME()
  36.   end repeat
  37.   REMOVESPRITE()
  38. end
  39.